home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / AddOns / misc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-05-13  |  3.0 KB  |  107 lines
  1. #ifndef lint
  2. static char *RcsId="$Header: /nfs/brad/denton_export/denton/You/NewYou/Feel/AddOns/RCS/misc.c,v 1.1 1993/01/18 12:57:24 pab Exp $" ;
  3. #endif
  4.  
  5. /* Miscellaneous Functions for YY-server
  6.  * This file is part of YY-server of YYonX (1.2 Distribution)
  7.  * $Header: /nfs/brad/denton_export/denton/You/NewYou/Feel/AddOns/RCS/misc.c,v 1.1 1993/01/18 12:57:24 pab Exp $
  8.  */
  9.  
  10. /****************************************************************************
  11. ;;;
  12. ;;;  Copyright (C) 1989,1990 Aoyama Gakuin University
  13. ;;;
  14. ;;;        All Rights Reserved
  15. ;;;
  16. ;;; This software is developed for the YY project of Aoyama Gakuin University.
  17. ;;; Permission to use, copy, modify, and distribute this software
  18. ;;; and its documentation for any purpose and without fee is hereby granted,
  19. ;;; provided that the above copyright notices appear in all copies and that
  20. ;;; both that copyright notice and this permission notice appear in 
  21. ;;; supporting documentation, and that the name of Aoyama Gakuin
  22. ;;; not be used in advertising or publicity pertaining to distribution of
  23. ;;; the software without specific, written prior permission.
  24. ;;;
  25. ;;; This software is made available AS IS, and Aoyama Gakuin makes no
  26. ;;; warranty about the software, its performance or its conformity to
  27. ;;; any specification. 
  28. ;;;
  29. ;;; To make a contact: Send E-mail to ida@csrl.aoyama.ac.jp for overall
  30. ;;; issues. To ask specific questions, send to the individual authors at
  31. ;;; csrl.aoyama.ac.jp. To request a mailing list, send E-mail to 
  32. ;;; yyonx-request@csrl.aoyama.ac.jp.
  33. ;;;
  34. ;;; Authors:
  35. ;;;   Version 1.0 90/08/10 by Keisuke 'Keiko' Tanaka
  36. ;;;                (keisuke@csrl.aoyama.ac.jp)
  37. ;;;   Version 2.0 90/08/27 by Keisuke 'Keiko' Tanaka
  38. ;;;            Page Mode Territory was supported
  39. ;;;   Version 2.2 90/11/05 by Keisuke 'Keiko' Tanaka
  40. ;;;            Copyright Notice was rewritten
  41. ;;;
  42. ****************************************************************************/
  43.  
  44. /****************************************************************************
  45.   $Revision: 1.1 $ Written by Keisuke 'Keiko' Tanaka
  46.   $Date: 1993/01/18 12:57:24 $
  47. ****************************************************************************/
  48.  
  49. #include <stdio.h>
  50. #include <sys/types.h>
  51. #include "yydefs.h"
  52.  
  53. void warning();
  54. extern char *malloc();
  55.  
  56. /* void (*memALLOCC_ERRFUNC)() = warning; */
  57.  
  58. char *memALLOC(size)
  59.     unsigned int size;
  60. {
  61.     register char *s = malloc(size);
  62.     if (s == (char *)NULL)
  63.     fprintf(stderr, "No enough memory..\n");
  64.     return s;
  65. }
  66.  
  67. char *strDUP(s)
  68.     register char *s;
  69. {
  70.     register char *p = memALLOC(strlen(s)+1);
  71.     if (p != (char *)NULL)
  72.     strcpy(p, s);
  73.     return p;
  74. }
  75.  
  76. int getargs(s, av, max)
  77.     register char *s;
  78.     char *av[];
  79.     register int max;
  80. {
  81.     register int num = 0;
  82.     if (!isalnum(*s))
  83.     return 0;
  84.     while (*s != EOS && max-- > 0) {
  85.     *av++ = s; num++;
  86.     while (*s != EOS && !isspace(*s))
  87.         s++;
  88.     if (*s != EOS)
  89.         *s++ = EOS;
  90.     }
  91.     return num;
  92. }
  93.  
  94. FILE *do_file_open(def_dir_path, dir_path, fname, type)
  95.     char *def_dir_path;    /* Default Directory Path */
  96.     char *dir_path;    /* Directory Path */
  97.     char *fname;
  98.     char *type;
  99. {
  100. }
  101.     
  102.  
  103. /*
  104.  *
  105.  *
  106.  */
  107.